home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
EGYPTW.DIR
/
01709_Script_On the River
< prev
next >
Wrap
Text File
|
1995-09-13
|
2KB
|
94 lines
global gQuest, gBeenClicked
on ERiverRollovers
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if the mousecast = the castnum of sprite 6 then
repeat while the mousecast = the castnum of sprite 6 or rollover(27)
EgyptCursor
puppetsprite 27, true
set the locH of sprite 27 to 551
set the locV of sprite 27 to 244
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
RiverAnimates
end repeat
end if
end if
end repeat
set the locH of sprite 27 to 951
updatestage
puppetsprite 27, false
else
if rollover(7) then
ArrowCursor
repeat while rollover(7)
set the locH of sprite 28 to 437
set the locV of sprite 28 to 195
updatestage
end repeat
set the locH of sprite 28 to 937
updatestage
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on RiverAnimates
ArrowCursor
set gAnimationcast1 = 582
set the locH of sprite 27 to 851
set count = 0
puppetsound "SE2403401.AIF"
repeat while count < 2 and (the mouseUp)
set the castnum of sprite 6 = gAnimationcast1 + 1
updatestage
wait .5
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 6 = gAnimationcast1 + 2
updatestage
if (the mousedown) then
exit repeat
end if
wait .5
set the castnum of sprite 6 = gAnimationcast1 + 1
updatestage
if (the mousedown) then
exit repeat
end if
wait .5
set the castnum of sprite 6 = gAnimationcast1
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .5
set count = count + 1
end repeat
set the castnum of sprite 6 = gAnimationcast1
updatestage
sound STOP 1
set gBeenClicked = 0
end